home *** CD-ROM | disk | FTP | other *** search
/ Ah My Goddess / Ah My Goddess.iso / pc / stage / big.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1997-09-08  |  3.4 KB  |  113 lines
  1. on exitFrame
  2.   global gva, gvwl, gvwl3, glpictlist, gvpictnum, glhatsude, gvhelpmode, gvhelppoint, gvwborc
  3.   dontPassEvent()
  4.   if gvhelpmode = 1 then
  5.     cursor([84, 85])
  6.   else
  7.     cursor(-1)
  8.   end if
  9.   lfxkeycontrol3()
  10.   if rollOver(21) then
  11.     helphyoujibig("on")
  12.     if (the mouseV > 360) and (the mouseH > 100) and (the mouseH < 540) then
  13.       set lvpoint to findPos(glhatsude, gfxconvertchar(getAt(glpictlist, gvpictnum)))
  14.       if voidp(lvpoint) then
  15.         alert("Hatsude List Not Found" & gfxconvertchar(getAt(glpictlist, gvpictnum)))
  16.       else
  17.         put getAt(glhatsude, lvpoint) into field "SETSUMEI"
  18.       end if
  19.     else
  20.       put " " into field "SETSUMEI"
  21.     end if
  22.   else
  23.     if (the mouseV > 360) and (the mouseH > 100) and (the mouseH < 540) then
  24.       helphyoujibig("on")
  25.       set lvpoint to findPos(glhatsude, gfxconvertchar(getAt(glpictlist, gvpictnum)))
  26.       if voidp(lvpoint) then
  27.         alert("Hatsude List Not Found" & gfxconvertchar(getAt(glpictlist, gvpictnum)))
  28.       else
  29.         put getAt(glhatsude, lvpoint) into field "SETSUMEI"
  30.       end if
  31.     else
  32.       put " " into field "SETSUMEI"
  33.     end if
  34.     if rollOver(18) then
  35.       helphyoujibig("on")
  36.       gfxwaitsec(0.08)
  37.       case gvwl of
  38.         1:
  39.           set the memberNum of sprite 18 to member 25 of castLib 4
  40.           set gvwl to 2
  41.         2:
  42.           set the memberNum of sprite 18 to member 26 of castLib 4
  43.           set gvwl to 3
  44.         3:
  45.           set the memberNum of sprite 18 to member 24 of castLib 4
  46.           set gvwl to 1
  47.       end case
  48.     else
  49.       if rollOver(19) then
  50.         helphyoujibig("on")
  51.       else
  52.         if rollOver(20) then
  53.           helphyoujibig("on")
  54.         else
  55.           if rollOver(16) then
  56.             helphyoujibig("on")
  57.             gfxwaitsec(0.08)
  58.             if gvwborc = 0 then
  59.               case gvwl3 of
  60.                 1:
  61.                   set the memberNum of sprite 16 to member 53 of castLib 4
  62.                   set gvwl3 to 2
  63.                 2:
  64.                   set the memberNum of sprite 16 to member 54 of castLib 4
  65.                   set gvwl3 to 3
  66.                 3:
  67.                   set the memberNum of sprite 16 to member 55 of castLib 4
  68.                   set gvwl3 to 4
  69.                 4:
  70.                   set the memberNum of sprite 16 to member 56 of castLib 4
  71.                   set gvwl3 to 1
  72.               end case
  73.             else
  74.               case gvwl3 of
  75.                 1:
  76.                   set the memberNum of sprite 16 to member 66 of castLib 4
  77.                   set gvwl3 to 2
  78.                 2:
  79.                   set the memberNum of sprite 16 to member 67 of castLib 4
  80.                   set gvwl3 to 3
  81.                 3:
  82.                   set the memberNum of sprite 16 to member 68 of castLib 4
  83.                   set gvwl3 to 4
  84.                 4:
  85.                   set the memberNum of sprite 16 to member 69 of castLib 4
  86.                   set gvwl3 to 1
  87.               end case
  88.             end if
  89.           else
  90.             helphyoujibig("Off")
  91.             if the mouseDown then
  92.               set gvhelpmode to 0
  93.             end if
  94.           end if
  95.         end if
  96.       end if
  97.     end if
  98.   end if
  99.   if the visible of window "├ñg├½├é" = 0 then
  100.     set gvhelpmode to 0
  101.     puppetSprite(46, 0)
  102.     updateStage()
  103.     set the visible of window "├ñg├½├é" to 0
  104.     set the updateLock to 1
  105.     go("Big3")
  106.   else
  107.     lfxchackwindow()
  108.     set gvhelppoint to "HelpB1"
  109.     lfxhelpmenu()
  110.     go("Big2")
  111.   end if
  112. end
  113.